home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / misc_src / sqlsomdb / sample10 / global.bas < prev    next >
BASIC Source File  |  1995-11-01  |  23KB  |  452 lines
  1. ' Global declarations for Visual Basic to DB-Library translation dll.
  2. ' Used by all apps linking with the SQL-Sombrero VBX (SQLVBXDB.VBX)
  3.  
  4. ' Global return values for all RETCODE type functions
  5. Global Const SUCCEED% = 1
  6. Global Const FAIL% = 0
  7.  
  8. ' Status code for dbresults(). Possible return values are
  9. ' SUCCEED, FAIL, and NO_MORE_RESULTS.
  10.  
  11. Global Const NOMORERESULTS = 2
  12.  
  13.  
  14.  
  15. ' return values permitted in error handlers
  16.  
  17. Global Const INTEXIT% = 0
  18. Global Const INTCONTINUE% = 1
  19. Global Const INTCANCEL% = 2
  20.  
  21. Global Const MOREROWS = -1
  22. Global Const NOMOREROWS = -2
  23. Global Const REGROW = -1
  24. Global Const BUFFULL = -3
  25.  
  26.  
  27.  
  28.  
  29. ' option values permitted in option setting/querying/clearing
  30. ' used by SqlSetOpt%(), SqlIsOpt%(), and SqlClrOpt%().
  31.  
  32. Global Const SQLBUFFER% = 0
  33. Global Const SQLOFFSET% = 1
  34. Global Const SQLROWCOUNT% = 2
  35. Global Const SQLSTAT% = 3
  36. Global Const SQLTEXTLIMIT% = 4
  37. Global Const SQLTEXTSIZE% = 5
  38. Global Const SQLARITHABORT% = 6
  39. Global Const SQLARITHIGNORE% = 7
  40. Global Const SQLNOAUTOFREE% = 8
  41. Global Const SQLNOCOUNT% = 9
  42. Global Const SQLNOEXEC% = 10
  43. Global Const SQLPARSEONLY% = 11
  44. Global Const SQLSHOWPLAN% = 12
  45. Global Const SQLSTORPROCID% = 13
  46. Global Const SQLANSItoOEM% = 14
  47.  
  48. ' Data type token values.  Used for datatype determination for a column.
  49.  
  50. Global Const SQLTEXT% = &H23
  51. Global Const SQLARRAY% = &H24
  52. Global Const SQLVARBINARY% = &H25
  53. Global Const SQLINTN% = &H26
  54. Global Const SQLVARCHAR% = &H27
  55. Global Const SQLBINARY% = &H2D
  56. Global Const SQLIMAGE% = &H22
  57. Global Const SQLCHAR% = &H2F
  58. Global Const SQLINT1% = &H30
  59. Global Const SQLBIT% = &H32
  60. Global Const SQLINT2% = &H34
  61. Global Const SQLINT4% = &H38
  62. Global Const SQLMONEY% = &H3C
  63. Global Const SQLDATETIME% = &H3D
  64. Global Const SQLFLT8% = &H3E
  65. Global Const SQLFLTN% = &H6D
  66. Global Const SQLFLT4% = &H3B
  67. Global Const SQLMONEYN% = &H6E
  68. Global Const SQLDATETIMN% = &H6F
  69. Global Const SQLAOPCNT% = &H4B
  70. Global Const SQLAOPSUM% = &H4D
  71. Global Const SQLAOPAVG% = &H4F
  72. Global Const SQLAOPMIN% = &H51
  73. Global Const SQLAOPMAX% = &H52
  74. Global Const SQLAOPANY% = &H53
  75. Global Const SQLAOPNOOP% = &H56
  76. Global Const SQLMONEY4% = &H7A
  77. Global Const SQLDATETIM4% = &H3A
  78.  
  79. '*** SYBASE System 10, SQL-Sombrero specific datatypes constants
  80. Global Const SQLNUMERICN% = &H6C
  81. Global Const SQLNUMERIC% = &H3F
  82. Global Const SQLDECIMALN% = &H6A
  83. Global Const SQLDECIMAL% = &H37
  84.  
  85.  
  86. ' error numbers SQL-Sombrero error codes that are passed to local error
  87. ' handler
  88.  
  89. Global Const SQLEMEM% = 10000
  90. Global Const SQLENULL% = 10001
  91. Global Const SQLENLOG% = 10002
  92. Global Const SQLEPWD% = 10003
  93. Global Const SQLECONN% = 10004
  94. Global Const SQLEDDNE% = 10005
  95. Global Const SQLNULLO% = 10006
  96. Global Const SQLESMSG% = 10007
  97. Global Const SQLEBTOK% = 10008
  98. Global Const SQLENSPE% = 10009
  99. Global Const SQLEREAD% = 10010
  100. Global Const SQLECNOR% = 10011
  101. Global Const SQLETSIT% = 10012
  102. Global Const SQLEPARM% = 10013
  103. Global Const SQLEAUTN% = 10014
  104. Global Const SQLECOFL% = 10015
  105. Global Const SQLERDCN% = 10016
  106. Global Const SQLEICN% = 10017
  107. Global Const SQLECLOS% = 10018
  108. Global Const SQLENTXT% = 10019
  109. Global Const SQLEDNTI% = 10020
  110. Global Const SQLETMTD% = 10021
  111. Global Const SQLEASEC% = 10022
  112. Global Const SQLENTLL% = 10023
  113. Global Const SQLETIME% = 10024
  114. Global Const SQLEWRIT% = 10025
  115. Global Const SQLEMODE% = 10026
  116. Global Const SQLEOOB% = 10027
  117. Global Const SQLEITIM% = 10028
  118. Global Const SQLEDBPS% = 10029
  119. Global Const SQLEIOPT% = 10030
  120. Global Const SQLEASNL% = 10031
  121. Global Const SQLEASUL% = 10032
  122. Global Const SQLENPRM% = 10033
  123. Global Const SQLEDBOP% = 10034
  124. Global Const SQLENSIP% = 10035
  125. Global Const SQLECNULL% = 10036
  126. Global Const SQLESEOF% = 10037
  127. Global Const SQLERPND% = 10038
  128. Global Const SQLECSYN% = 10039
  129. Global Const SQLENONET% = 10040
  130. Global Const SQLEBTYP% = 10041
  131. Global Const SQLEABNC% = 10042
  132. Global Const SQLEABMT% = 10043
  133. Global Const SQLEABNP% = 10044
  134. Global Const SQLEBNCR% = 10045
  135. Global Const SQLEAAMT% = 10046
  136. Global Const SQLENXID% = 10047
  137. Global Const SQLEIFNB% = 10048
  138. Global Const SQLEKBCO% = 10049
  139. Global Const SQLEBBCI% = 10050
  140. Global Const SQLEKBCI% = 10051
  141. Global Const SQLEBCWE% = 10052
  142. Global Const SQLEBCNN% = 10053
  143. Global Const SQLEBCOR% = 10054
  144. Global Const SQLEBCPI% = 10055
  145. Global Const SQLEBCPN% = 10056
  146. Global Const SQLEBCPB% = 10057
  147. Global Const SQLEVDPT% = 10058
  148. Global Const SQLEBIVI% = 10059
  149. Global Const SQLEBCBC% = 10060
  150. Global Const SQLEBCFO% = 10061
  151. Global Const SQLEBCVH% = 10062
  152. Global Const SQLEBCUO% = 10063
  153. Global Const SQLEBUOE% = 10064
  154. Global Const SQLEBWEF% = 10065
  155. Global Const SQLEBTMT% = 10066
  156. Global Const SQLEBEOF% = 10067
  157. Global Const SQLEBCSI% = 10068
  158. Global Const SQLEPNUL% = 10069
  159. Global Const SQLEBSKERR% = 10070
  160. Global Const SQLEBDIO% = 10071
  161. Global Const SQLEBCNT% = 10072
  162. Global Const SQLEMDBP% = 10073
  163. Global Const SQLEINIT% = 10074
  164. Global Const SQLCRSINV% = 10075
  165. Global Const SQLCRSCMD% = 10076
  166. Global Const SQLCRSNOIND% = 10077
  167. Global Const SQLCRSDIS% = 10078
  168. Global Const SQLCRSAGR% = 10079
  169. Global Const SQLCRSORD% = 10080
  170. Global Const SQLCRSMEM% = 10081
  171. Global Const SQLCRSBSKEY% = 10082
  172. Global Const SQLCRSNORES% = 10083
  173. Global Const SQLCRSVIEW% = 10084
  174. Global Const SQLCRSBUFR% = 10085
  175. Global Const SQLCRSFROWN% = 10086
  176. Global Const SQLCRSBROL% = 10087
  177. Global Const SQLCRSFRAND% = 10088
  178. Global Const SQLCRSFLAST% = 10089
  179. Global Const SQLCRSRO% = 10090
  180. Global Const SQLCRSTAB% = 10091
  181. Global Const SQLCRSUPDTAB% = 10092
  182. Global Const SQLCRSUPDNB% = 10093
  183. Global Const SQLCRSVIIND% = 10094
  184. Global Const SQLCRSNOUPD% = 10095
  185. Global Const SQLCRSOS2% = 10096
  186. Global Const SQLEBCSA% = 10097
  187. Global Const SQLEBCRO% = 10098
  188. Global Const SQLEBCNE% = 10099
  189. Global Const SQLEBCSK% = 10100
  190.  
  191. ' The severity levels are defined here for error handlers
  192.  
  193. Global Const EXINFO% = 1
  194. Global Const EXUSER% = 2
  195. Global Const EXNONFATAL% = 3
  196. Global Const EXCONVERSION% = 4
  197. Global Const EXSERVER% = 5
  198. Global Const EXTIME% = 6
  199. Global Const EXPROGRAM% = 7
  200. Global Const EXRESOURCE% = 8
  201. Global Const EXCOMM% = 9
  202. Global Const EXFATAL% = 10
  203. Global Const EXCONSISTENCY% = 11
  204.  
  205. ' Length of text timestamp and text pointer
  206.  
  207. Global Const SQLTXTSLEN% = 8          ' length of text timestamp
  208. Global Const SQLTXPLEN% = 16          ' length of text pointer
  209.  
  210. Global Const OFF_SELECT% = &H16D
  211. Global Const OFF_FROM% = &H14F
  212. Global Const OFF_ORDER% = &H165
  213. Global Const OFF_COMPUTE% = &H139
  214. Global Const OFF_TABLE% = &H173
  215. Global Const OFF_PROCEDURE% = &H16A
  216. Global Const OFF_STATEMENT% = &H1CB
  217. Global Const OFF_PARAM% = &H1C4
  218. Global Const OFF_EXEC% = &H12C
  219.  
  220. Rem SQL Server data types print lengths.
  221. Global Const PRINT4% = 11
  222. Global Const PRINT2% = 6
  223. Global Const PRINT1% = 3
  224. Global Const PRFLT8% = 21
  225. Global Const PRMONEY = 26
  226. Global Const PRBIT% = 3
  227. Global Const PRDATETIME% = 27
  228. Global Const PRDATETIM4% = 20
  229.  
  230. ' Bulk Copy Definitions (bcp)
  231.  
  232. Global Const DBIN% = 1              ' transfer from client to server
  233. Global Const DBOUT% = 2             ' transfer from server to client
  234.  
  235. Global Const BCPMAXERRS% = 1        ' SqlBcpControl parameter
  236. Global Const BCPFIRST% = 2          ' SqlBcpControl parameter
  237. Global Const BCPLAST% = 3           ' SqlBcpControl parameter
  238. Global Const BCPBATCH% = 4          ' SqlBcpControl parameter
  239.  
  240.  
  241. ' Remote Procedure Call function options
  242.  
  243. Global Const SQLRPCRECOMPILE% = 1 ' recompile the stored procedure
  244. Global Const SQLRPCRETURN% = 1    ' return parameter
  245.  
  246. ' The following values are passed to SqlServerEnum for searching criteria.
  247.  
  248. Global Const NETSEARCH% = 1
  249. Global Const LOCSEARCH% = 2
  250.  
  251.  
  252. ' These constansts are the possible return values from SqlServerEnum.
  253.  
  254. Global Const ENUMSUCCESS% = 0
  255. Global Const MOREDATA% = 1
  256. Global Const NETNOTAVAIL% = 2
  257. Global Const OUTOFMEMORY% = 4
  258. Global Const NOTSUPPORTED% = 8
  259.  
  260.  
  261. ' User defined data type for SqlGetColumnInfo
  262.  
  263. Type ColumnData
  264.    Coltype As Integer
  265.    Collen As Long
  266.    Colname As String * 30
  267.    ColSqlType As String * 30
  268. End Type
  269.  
  270. ' User defined data type for SqlGetAltColInfo
  271.  
  272. Type AltColumnData
  273.    ColID As Integer
  274.    DataType As Integer
  275.    MaxLen As Long
  276.    AggType As Integer
  277.    AggOpName As String * 30
  278. End Type
  279.  
  280. ' User defined data type for SqlBcpColumnFormat
  281.  
  282. Type BcpColData
  283.     FType As Integer
  284.     FPLen As Integer
  285.     fColLen As Long
  286.     FTerm As String * 30
  287.     FTLen As Integer
  288.     TCol As Integer
  289. End Type
  290.  
  291. ' User defined data type for SqlDateCrack
  292.  
  293. Type DateInfo
  294.     Year As Integer
  295.     Quarter As Integer
  296.     Month As Integer
  297.     DayOfYear As Integer
  298.     Day As Integer
  299.     Week As Integer
  300.     WeekDay As Integer
  301.     Hour As Integer
  302.     Minute As Integer
  303.     Second As Integer
  304.     Millisecond As Integer
  305. End Type
  306.  
  307. ' Function/Sub declarations for Visual Basic App Global module
  308.  
  309. Declare Function CompileDate Lib "SQLVBXDB.VBX" () As String
  310. Declare Function SqlInit Lib "SQLVBXDB.VBX" () As String
  311. Declare Sub SqlWinExit Lib "SQLVBXDB.VBX" ()
  312. Declare Function SqlLogin Lib "SQLVBXDB.VBX" () As Integer
  313. Declare Function SqlSetLUser Lib "SQLVBXDB.VBX" (ByVal Login As Integer, User As String) As Integer
  314. Declare Function SqlSetLPwd Lib "SQLVBXDB.VBX" (ByVal Login As Integer, Pwd As String) As Integer
  315. Declare Function SqlSetLApp Lib "SQLVBXDB.VBX" (ByVal Login As Integer, App As String) As Integer
  316. Declare Function SqlSetLHost Lib "SQLVBXDB.VBX" (ByVal Login As Integer, Host As String) As Integer
  317. Declare Function SqlSetLNatLang Lib "SQLVBXDB.VBX" (ByVal Login As Integer, Lang As String) As Integer
  318. Declare Function SqlOpen Lib "SQLVBXDB.VBX" (ByVal Login As Integer, Server As String) As Integer
  319. Declare Sub SqlClose Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer)
  320. Declare Sub SqlFreeLogin Lib "SQLVBXDB.VBX" (ByVal Login As Integer)
  321. Declare Function SqlCmd Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, Cmd As String) As Integer
  322. Declare Function SqlExec Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  323. Declare Function SqlResults Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  324. Declare Function SqlNextRow Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  325. Declare Function SqlNumCols Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  326. Declare Function SqlColName Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As String
  327. Declare Function SqlColType Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As Integer
  328. Declare Function SqlColUType Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As Long
  329. Declare Function SqlColLen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As Integer
  330. Declare Function SqlDatLen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As Long
  331. Declare Function SqlData Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As String
  332. Declare Function SqlDataReady Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  333. Declare Sub SqlExit Lib "SQLVBXDB.VBX" ()
  334. Declare Function SqlSetLoginTime Lib "SQLVBXDB.VBX" (ByVal Seconds As Integer) As Integer
  335. Declare Function SqlSetTime Lib "SQLVBXDB.VBX" (ByVal Seconds As Integer) As Integer
  336. Declare Function SqlSend Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  337. Declare Function SqlOk Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  338. Declare Function SqlGetChar Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal CharNum As Integer) As String
  339. Declare Function SqlStrCpy Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Start As Integer, ByVal NumBytes As Integer, Buffer As String) As Integer
  340. Declare Function SqlStrLen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  341. Declare Function SqlSetOpt Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Opt As Integer, Param As String) As Integer
  342. Declare Function SqlClrOpt Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Opt As Integer, Param As String) As Integer
  343. Declare Function SqlIsOpt Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Opt As Integer, Param As String) As Integer
  344. Declare Sub SqlFreeBuf Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer)
  345. Declare Function SqlCancel Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  346. Declare Function SqlCanQuery Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  347. Declare Function SqlGetRow Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal RowNum As Long) As Integer
  348. Declare Sub SqlClrBuf Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal RowNum As Long)
  349. Declare Function SqlColBrowse Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As Integer
  350. Declare Function SqlColSource Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal TabNum As Integer) As String
  351. Declare Function SqlQual Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal TabNum As Integer, TableName As String) As String
  352. Declare Function SqlTabBrowse Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal TabNum As Integer) As Integer
  353. Declare Function SqlTabCount Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  354. Declare Function SqlTabName Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal TabNum As Integer) As String
  355. Declare Function SqlTabSource Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ColNum As Integer, TabNum As Integer) As String
  356. Declare Function SqlTsNewLen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  357. Declare Function SqlTsNewVal Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As String
  358. Declare Function SqlTsPut Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, NewTs As String, ByVal NewTsLen As Integer, ByVal TabNum As Integer, TabName As String) As Integer
  359. Declare Function SqlMoreText Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Size As Long, Text As String) As Integer
  360. Declare Function SqlTxPtr Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As String
  361. Declare Function SqlTxTimeStamp Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Column As Integer) As String
  362. Declare Function SqlTxTsNewVal Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As String
  363. Declare Function SqlTxTsPut Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, NewTxTs As String, ByVal Column As Integer) As Integer
  364. Declare Function SqlWriteText Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ObjName As String, TextPtr As String, ByVal TextPtrLen As Integer, TimeStamp As String, ByVal Logging As Integer, ByVal Size As Long, Text As String) As Integer
  365. Declare Function SqlCmdRow Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  366. Declare Function SqlIsCount Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  367. Declare Function SqlCount Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Long
  368. Declare Function SqlCurCmd Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  369. Declare Function SqlCurRow Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Long
  370. Declare Function SqlDead Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  371. Declare Function SqlFirstRow Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Long
  372. Declare Function SqlGetTime Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  373. Declare Function SqlIsAvail Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  374. Declare Function SqlLastRow Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Long
  375. Declare Function SqlMoreCmds Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  376. Declare Function SqlNumOrders Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  377. Declare Function SqlRows Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  378. Declare Function SqlRowType Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  379. Declare Function SqlNumAlts Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer) As Integer
  380. Declare Function SqlAltType Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  381. Declare Function SqlAltUType Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
  382. Declare Function SqlAltLen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  383. Declare Function SqlADLen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Long
  384. Declare Function SqlAData Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As String
  385. Declare Function SqlAltColId Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  386. Declare Function SqlAltOp Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer, ByVal Column As Integer) As Integer
  387. Declare Function SqlByList Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ComputeId As Integer) As String
  388. Declare Function SqlNumCompute Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  389. Declare Function SqlUse Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, Database As String) As Integer
  390. Declare Function SqlGetOff Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal OffType As Integer, ByVal StartFrom As Integer) As Integer
  391. Declare Function SqlOrderCol Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Order As Integer) As Integer
  392. Declare Function SqlChange Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As String
  393. Declare Function SqlGetMaxProcs Lib "SQLVBXDB.VBX" () As Integer
  394. Declare Function SqlName Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As String
  395. Declare Function SqlPrType Lib "SQLVBXDB.VBX" (ByVal Token As Integer) As String
  396. Declare Sub SqlSetAvail Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer)
  397. Declare Function SqlSetMaxProcs Lib "SQLVBXDB.VBX" (ByVal MaxProcs As Integer) As Integer
  398.  
  399. '   BCP Declarations
  400. '   SQL-Sombrero
  401.  
  402. Declare Function SqlBCPColfmt Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Fcolumn As Integer, ByVal FType As Integer, ByVal FPLen As Integer, ByVal FCLen As Long, FTerm As String, ByVal FTLen As Integer, ByVal TCol As Integer) As Integer
  403. Declare Function SqlBCPColumnFormat Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, Col As BcpColData, ByVal NumCols As Integer) As Integer
  404. Declare Function SqlBCPColumns Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal ColCount As Integer) As Integer
  405. Declare Function SqlBCPControl Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal Param As Integer, ByVal Value As Long) As Integer
  406. Declare Function SqlBCPExec Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, RowsCopied As Long) As Integer
  407. Declare Function SqlBCPInit Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, TblName As String, HFile As String, ErrFile As String, ByVal Direction As Integer) As Integer
  408. Declare Function SqlBCPSetL Lib "SQLVBXDB.VBX" (ByVal Loginrec As Integer, ByVal Enable As Integer) As Integer
  409.  
  410.  
  411. '   BCP Declarations
  412. '   DB-Lib
  413.  
  414. Declare Function SqlBCPBatchPC Lib "SQLVBXDB.VBX" () As Integer
  415. Declare Function SqlBCPColumnsPC Lib "SQLVBXDB.VBX" (ByVal ColCount As Integer) As Integer
  416. Declare Function SqlBCPDonePC Lib "SQLVBXDB.VBX" () As Integer
  417. Declare Function SqlBCPInitPC Lib "SQLVBXDB.VBX" (Server As String, Loginid As String, Password As String, Workstation As String, Application As String, Dbase As String, TblName As String, ErrFile As String) As Integer
  418. Declare Function SqlBCPSendRowPC Lib "SQLVBXDB.VBX" () As Integer
  419. Declare Function sqlBCPSetDataPC Lib "SQLVBXDB.VBX" (ByVal Fcolumn As Integer, FData As String) As Integer
  420.  
  421. Declare Function SqlSendCmd Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, Cmd As String) As Integer
  422. Declare Function SqlGetColumnInfo Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, Col As ColumnData, ByVal Column As Integer) As Integer
  423. Declare Function SqlGetAltColInfo Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, AltCol As AltColumnData, ByVal ComputeId As Integer, ByVal AltColumn As Integer) As Integer
  424. Declare Function SqlOpenConnection Lib "SQLVBXDB.VBX" (Server As String, Loginid As String, Pwd As String, Workstation As String, Application As String) As Integer
  425. Declare Function SqlTextUpdate1Row Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Integer
  426. Declare Function SqlTextUpdateManyRows Lib "SQLVBXDB.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ObjName As String, ByVal Column As Integer, Text As String) As Long
  427.  
  428. Declare Function SqlTsUpdate Lib "SQLVBXDB.VBX" (ByVal QSqlConn As Integer, ByVal USqlConn As Integer, ByVal TabNum As Integer, TabName As String) As Integer
  429. Declare Function SqlCursorOpen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, Statement As String, ByVal ScrollOpt As Integer, ByVal ConCurOpt As Integer, ByVal NRows As Integer, PStat As Long) As Integer
  430. Declare Function SqlCursorFetch Lib "SQLVBXDB.VBX" (SqlCursor As Integer, ByVal FetchType As Integer, ByVal RowNum As Integer) As Integer
  431. Declare Function SqlCursorData Lib "SQLVBXDB.VBX" (SqlCursor As Integer, ByVal BufNo As Integer, ByVal Column As Integer) As String
  432. Declare Function SqlCursor Lib "SQLVBXDB.VBX" (SqlCursor As Integer, ByVal OpType As Integer, ByVal BufNo As Integer, Table As String, Statement As String) As Integer
  433. Declare Sub SqlCursorClose Lib "SQLVBXDB.VBX" (SqlCursor As Integer)
  434. Declare Function SqlCursorColInfo Lib "SQLVBXDB.VBX" (SqlCursor As Integer, ByVal Column As Integer, Colname As String, Coltype As Integer, Collen As Long, UserType As Integer) As Integer
  435. Declare Function SqlCursorInfo Lib "SQLVBXDB.VBX" (SqlCursor As Integer, Columns As Integer, Rows As Long) As Integer
  436. Declare Function SqlDateCrack Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, SqlDateInfo As DateInfo, DateTime As String) As Integer
  437. Declare Function SQLHasRetStat Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  438. Declare Function SQLNumRets Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  439. Declare Function SQLRetData Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal RetNum As Integer) As String
  440. Declare Function SQLRetLen Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal RetNum As Integer) As Long
  441. Declare Function SQLRetName Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal RetNum As Integer) As String
  442. Declare Function SqlRetStatus Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Long
  443. Declare Function SQLRetType Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ByVal RetNum As Integer) As Integer
  444. Declare Function SqlRpcInit Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, RpcName As String, ByVal Options As Integer) As Integer
  445. Declare Function SqlRpcParam Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer, ParamName As String, ByVal Status As Integer, ByVal ParamType As Integer, ByVal MaxLen As Long, ByVal DataLen As Long, Value As String) As Integer
  446. Declare Function SqlRpcSend Lib "SQLVBXDB.VBX" (ByVal Sqlconn As Integer) As Integer
  447. Declare Sub SqlRPwClr Lib "SQLVBXDB.VBX" (ByVal Login As Integer)
  448. Declare Function SqlRPwSet Lib "SQLVBXDB.VBX" (ByVal Login As Integer, SrvName As String, Password As String) As Integer
  449. Declare Function SqlServerEnum Lib "SQLVBXDB.VBX" (ByVal SearchMode As Integer, ServerBuf As String, NumEntries As Integer) As Integer
  450.  
  451.  
  452.